* removendo tabelas da base de dados

nTabelas=adir(aArq,"c:\gesbiblioteca\dados\*.dbf")
open database
for nCont=1 to nTabelas
      aArq[nCont,1]=subst(aArq[nCont,1],1,len(aArq[nCont,1])-4)
      remove table &aArq[nCont,1]
endfor
return .f.

nTabelas=adir(aArq,"c:\gesbiblioteca\dados\BIB*.dbf")
open database
for nCont=1 to nTabelas
*     aArq[nCont,1]=subst(aArq[nCont,1],1,len(aArq[nCont,1])-4)
     aArq[nCont,1]="c:\gesbiblioteca\dados\"+subst(aArq[nCont,1],1,len(aArq[nCont,1])-4)
     ? aArq[nCont,1]
    ADD TABLES &aArq[nCont,1]
endfor